home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0828.ZIP / DEXPERT.ZIP / TRAIMENU.PRG < prev    next >
Text File  |  1987-02-06  |  848b  |  39 lines

  1. clear
  2. set defa to c
  3. set path to c:\training
  4. set conf on
  5. set stat off
  6. set scor off
  7. set talk off
  8. set proc to training
  9. bc=.t.
  10. do while bc
  11. clear
  12.     set colo to bg+/n,w/g
  13.     deopt=0
  14.     @ 1,20 say "dEXPERT"
  15.     @ 2,15 say "TRAINING PROGRAMS MASTER MENU"
  16.     @ 3,10 to 3,70 double
  17.     @ 5,15 say "1. Create Training Program Screens"
  18.     @ 6,15 say "2. View a Training Database"
  19.     @ 7,15 say "3. Edit Existing Screens"
  20.     @ 8,15 say "4. Exit dEXPERT"
  21.     @ 10,15 get deopt pict "@Z 9"
  22.     @ 10,17 say "<<<<Enter Selection"
  23.     read
  24.     do case
  25.         case deopt=1
  26.             do creator
  27.             clos data
  28.             clos form
  29.         case deopt=2
  30.             do trainer
  31.             clos data
  32.             clos form
  33.         case deopt=3
  34.         do editor
  35.         case deopt=4
  36.         quit
  37.     endcase
  38. enddo
  39.